home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ Context Menu Options 4.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-12  |  1.8 KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Files&Folders\Files"
  5. "UIPATH 2"="System\Advanced Performance Settings"
  6. "NAME"="Start High Priority Context Menu"
  7. "VERSION"="2.34"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="010101"
  10. "TEXT 1"="Enable "Start high priority" command for EXE files"
  11. "DESCRIPTION 1"="If "Start high priority" is enabled, the command "Start High Priority" will appear if you right-click a EXE file."
  12. "DESCRIPTION 2"="Selecting this command will force Windows to execute the currently selected file with maximum priority."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Found at http://snakefoot.homestead.com/files/tweak/winnt/tweak.html (Credits: www.ntfaq.com)" 
  17.  
  18.  
  19.  
  20.  
  21. Sub Plugin_Initialize 
  22.  s=RegReadValue("HKCR\exefile\Shell\XQSHP\Command\@")
  23.  if Len(s)>0 then
  24.     SetUIElement 1,true
  25.  end if 
  26. End Sub
  27.  
  28. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  s=""
  30.  bW9x=false
  31.  
  32.  If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  33.     bW9x=true
  34.  else
  35.     bW9x=false
  36.  end if
  37.  
  38.  
  39.  if GetUIElement(1)=true then
  40.     if bW9x=true then
  41.        s=GetWinDir
  42.        s=s & "command.com /c start ""XQSHP"" /high ""%1"""
  43.     else
  44.        'Windows NT/2000
  45.        s=GetWinSysDir
  46.        s=s & "cmd.exe /c start ""XQSHP"" /high ""%1"""
  47.     end if
  48.  
  49.     Call RegWriteValue("HKCR\exefile\Shell\XQSHP\@","Start &High priority",1)
  50.     Call RegWriteValue("HKCR\exefile\Shell\XQSHP\Command\@",s,1)
  51.  
  52.  else 'Disable it!
  53.  
  54.     if RegPathExists("HKCR\exefile\Shell\XQSHP") then
  55.        Call RegDeletePath("HKCR\exefile\Shell\XQSHP\Command")
  56.        Call RegDeletePath("HKCR\exefile\Shell\XQSHP")
  57.     end if
  58.  
  59.  end if
  60.  
  61.  
  62.  
  63. End Sub
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.